home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / e / amigae21b.lha / Amiga_E_v2.1b / Sources / Other / Vd.e < prev   
Text File  |  1992-09-02  |  611b  |  23 lines
  1. /* A small virus detector */
  2. /* By EA van Breemen */
  3.  
  4. MODULE 'exec/execbase'
  5.  
  6. DEF base:PTR TO execbase,x:PTR TO LONG
  7.  
  8. /* Main procedure */
  9.  
  10. PROC main()
  11.  WriteF('The E Virusdetector \c1993\n',169)
  12.  WriteF('By E.A. van Breemen\n')
  13.  base:=execbase  /* get execbase */
  14.  IF check_exec() THEN WriteF('Machine has been infected\n')
  15. ENDPROC
  16.  
  17. /* Check procedure of execbase */
  18.  
  19. PROC check_exec() RETURN Exists({x},
  20.   [[base.coldcapture,'ColdCapture'],[base.coolcapture,'CoolCapture'],
  21.   [base.kickmemptr,'KickMemPtr'],[base.kicktagptr,'KickTagPtr']],
  22.   `WriteF(IF x[0] THEN '\s Altered\n' ELSE '\s OK\n',x[1]) BUT x[0])
  23.